﻿Imports CalificadorPremiosOscarBLL.pcs.Login.Administrador
Namespace pcs.Login

    Public Class LoginFasade

        Public Shared Function login(ByVal usuario As String, ByVal contrasenia As String, ByVal administrador As Boolean) As Boolean
            If administrador Then
                Dim admon As LoginAdministradorServicio = LoginFactory.crearLoginAdministradorServicio()
                If admon.loginAdministrador(usuario, contrasenia) Then
                    Return True
                Else
                    Return False
                End If
            Else
                Return False
            End If
        End Function

    End Class

End Namespace
